home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-01
/
lcppb.zip
/
LCPPANS.ZIP
/
SUBDIRS.CPP
< prev
next >
Wrap
C/C++ Source or Header
|
1991-07-08
|
608b
|
29 lines
// subdirs.cpp -- List subdirectory names
#include <iostream.h>
#include <dir.h>
#include <dos.h>
main()
{
struct ffblk fb;
char *wildCard = "*.*";
int done;
cout << "Directories in current path:\n";
done = findfirst(wildCard, &fb, FA_DIREC);
while (!done) {
if ((fb.ff_attrib & FA_DIREC) != 0)
cout << fb.ff_name << '\n';
done = findnext(&fb);
}
}
// Copyright (c) 1990 by Tom Swan. All rights reserved
// Revision 1.00 Date: 12/06/1990 Time: 03:08 pm
// Revision 1.01 Date: 07/08/1991 Time: 05:41 pm
// Converted for Borland C++ 2.0